home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / U-Z / WindowScript™.Demo / WindowScript™ 1.0 Working Model / WindowScript™ 1.0 Working Model.rsrc / LENS_13495_Resource Display.txt < prev    next >
Encoding:
Text File  |  1992-04-29  |  7.7 KB  |  138 lines
  1. # (decoded with TMPL 129)
  2. ItemType: WIND
  3. Rect: 130,115,510,291
  4. Style: Windoid
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. HasCloseBox: TRUE
  8. HasGrowBox: FALSE
  9. MinSize: 298,95
  10. MaxSize: 449,318
  11. Name: Resource Display
  12. TextSize: 12
  13. WhiteColor: -1,-1,-13108
  14. Script: -- Example by Alan Pabst, Heizer Software¬¨--on windowEvent  wdID,wdName,objNo,objName,objValue¬¨¬¨if objValue="Open" then ¬¨  ¬¨else if objValue="Close" then ¬¨  ¬¨else if objValue="Suspend" then ¬¨  ¬¨else if objValue="Resume" then ¬¨  ¬¨else if objValue="CloseBox" then ¬¨  ¬¨else if objValue="ZoomBox" then ¬¨  ¬¨else if objValue="GrowBox" then ¬¨  ¬¨else if objValue="TitleBar" then ¬¨  ¬¨end if¬¨¬¨--end windowEvent
  15.  
  16. ItemType: PUSH
  17. Rect: 265,144,337,164
  18. BlackColor: 17476,0,0
  19. Name: OK
  20. DefaultItem: TRUE
  21. AutoClose: TRUE
  22. Balloon: The OK button will close the current window.
  23.  
  24. ItemType: LIST
  25. Rect: 5,6,222,168
  26. TextFont: Geneva
  27. AutoSize: FALSE
  28. Style: ListOfFinderIcons
  29. Text: 262¬¨263¬¨131¬¨132¬¨133¬¨138¬¨139¬¨-16455¬¨128¬¨129¬¨-16415¬¨3¬¨-32512¬¨-32511¬¨-16509¬¨-16506¬¨-16503¬¨-16502¬¨-16494¬¨-16486¬¨-16485¬¨-16484¬¨-16483¬¨-16482¬¨-16411¬¨-4000¬¨-3999¬¨-3998¬¨-3996¬¨-3994¬¨-3993¬¨-3991¬¨-3989¬¨-3985¬¨-3984¬¨-3983¬¨-3982¬¨-3981¬¨-3980¬¨-3979¬¨-3978¬¨-3977¬¨-3976¬¨-3975¬¨-3974¬¨-3973¬¨-3971¬¨-5696
  30. Logic: Single
  31. Balloon: This list will show the resource corresponding to the selected radio button.
  32. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨¬¨--end mouseUp
  33.  
  34. ItemType: RAD
  35. Rect: 236,19,291,35
  36. BlackColor: 17476,0,0
  37. Name: ICON
  38. Balloon: This is a radio button.  Clicking on it will show all ICON resources that are currently available.
  39. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("ICON",BOTH)¬¨put it into nameList¬¨get the number of lines in nameList¬¨put it into theCount¬¨repeat with i = 1 to theCount¬¨  put word 1 of  line i of nameList &" " before line i of nameList¬¨end repeat¬¨get "i2_Style:ListWithIcons" & return & "i2_Text:"&scrunch(nameList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  40.  
  41. ItemType: RAD
  42. Rect: 236,35,293,51
  43. BlackColor: 17476,0,0
  44. Name: ICN#
  45. Hilite: TRUE
  46. Balloon: This is a radio button.  Clicking on it will show all ICN# resources that are currently available.
  47. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("ICN#",ID)¬¨put it into eyeList¬¨get "i2_Style:ListOfFinderIcons"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  48.  
  49. ItemType: RAD
  50. Rect: 236,51,288,67
  51. BlackColor: 17476,0,0
  52. Name: PICT
  53. Balloon: This is a radio button.  Clicking on it will show all PICT resources that are currently available.
  54. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("PICT",ID)¬¨put it into eyeList¬¨get "i2_Style:ListOfPictures"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  55.  
  56. ItemType: RAD
  57. Rect: 236,67,296,83
  58. BlackColor: 17476,0,0
  59. Name: XCMD
  60. Balloon: This is a radio button.  Clicking on it will show a list of all XCMD resources that are currently available.
  61. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("XCMD",BOTH)¬¨put " " &it into eyeList¬¨get "i2_Style:Standard"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  62.  
  63. ItemType: RAD
  64. Rect: 236,83,292,99
  65. BlackColor: 17476,0,0
  66. Name: XFCN
  67. Balloon: This is a radio button.  Clicking on it will show a list of all XFCN resources that are currently available.
  68. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("XFCN",BOTH)¬¨put " " &it into eyeList¬¨get "i2_Style:Standard"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  69.  
  70. ItemType: RAD
  71. Rect: 236,99,290,115
  72. BlackColor: 17476,0,0
  73. Name: LENS
  74. Balloon: This is a radio button.  Clicking on it will show a list of all LENS resources that are currently available.
  75. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("LENS",BOTH)¬¨put " " &it into eyeList¬¨get "i2_Style:Standard"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  76.  
  77. ItemType: RAD
  78. Rect: 236,115,296,131
  79. BlackColor: 17476,0,0
  80. Name: MENU
  81. Balloon: This is a radio button.  Clicking on it will show a list of all MENU resources that are currently available.
  82. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("MENU",BOTH)¬¨put " " &it into eyeList¬¨get "i2_Style:Standard"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  83.  
  84. ItemType: RAD
  85. Rect: 308,19,368,35
  86. BlackColor: 17476,0,0
  87. Name: MBAR
  88. Balloon: This is a radio button.  Clicking on it will show a list of all MBAR resources that are currently available.
  89. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("MBAR",BOTH)¬¨put " " &it into eyeList¬¨get "i2_Style:Standard"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  90.  
  91. ItemType: RAD
  92. Rect: 308,35,366,51
  93. BlackColor: 17476,0,0
  94. Name: MDEF
  95. Balloon: This is a radio button.  Clicking on it will show a list of all MDEF resources that are currently available.
  96. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("MDEF",BOTH)¬¨put " " &it into eyeList¬¨get "i2_Style:Standard"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  97.  
  98. ItemType: RAD
  99. Rect: 308,51,361,67
  100. BlackColor: 17476,0,0
  101. Name: LDEF
  102. Balloon: This is a radio button.  Clicking on it will show a list of all LDEF resources that are currently available.
  103. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("LDEF",BOTH)¬¨put " " &it into eyeList¬¨get "i2_Style:Standard"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  104.  
  105. ItemType: RAD
  106. Rect: 308,67,362,83
  107. BlackColor: 17476,0,0
  108. Name: CDEF
  109. Balloon: This is a radio button.  Clicking on it will show a list of all CDEF resources that are currently available.
  110. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("CDEF",BOTH)¬¨put " " &it into eyeList¬¨get "i2_Style:Standard"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  111.  
  112. ItemType: RAD
  113. Rect: 308,83,359,99
  114. BlackColor: 17476,0,0
  115. Name: TEXT
  116. Balloon: This is a radio button.  Clicking on it will show a list of all TEXT resources that are currently available.
  117. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("TEXT",BOTH)¬¨put " " &it into eyeList¬¨get "i2_Style:Standard"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  118.  
  119. ItemType: RAD
  120. Rect: 308,99,357,115
  121. BlackColor: 17476,0,0
  122. Name: STR 
  123. Balloon: This is a radio button.  Clicking on it will show a list of all STR resources that are currently available.
  124. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("STR ",BOTH)¬¨put " " &it into eyeList¬¨get "i2_Style:Standard"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  125.  
  126. ItemType: RAD
  127. Rect: 308,115,363,131
  128. BlackColor: 17476,0,0
  129. Name: STR#
  130. Balloon: This is a radio button.  Clicking on it will show a list of all STR# resources that are currently available.
  131. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨get resourceList("STR#",BOTH)¬¨put " " &it into eyeList¬¨get "i2_Style:Standard"& return & "i2_Text:"&scrunch(eyeList)¬¨set the properties of window wdName to it¬¨--end mouseUp
  132.  
  133. ItemType: BOX
  134. Rect: 227,6,374,135
  135. BlackColor: 17476,0,0
  136. WhiteColor: -1,-1,-13108
  137. Name: Res Type
  138. PenSize: 2,2